* bytecomp.el (byte-compile-from-buffer): Bind float-output-format

	to "%.20e", not "%20e"; the latter is always ignored, since it
	doesn't have a decimal point after the percent sign.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 1bf05c831686914097433e453bd271f1a669fe35..b67be5ce60c93985ac1a1b459b40eb5dc70b3414 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1244,7 +1244,7 @@ With argument, insert value in current buffer after the form."
   ;; buffer --> output-buffer, or buffer --> eval form, return nil
   (let (outbuffer)
     (let (;; Prevent truncation of flonums and lists as we read and print them
-         (float-output-format "%20e")
+         (float-output-format "%.20e")
          (case-fold-search nil)
          (print-length nil)
          ;; Simulate entry to byte-compile-top-level